home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / bix02.arc / PORTS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-08-04  |  222 b   |  8 lines
  1. Turn video off:   port[$3D8] := mem[$40:$65] and $F7;
  2. Turn back on:     port[$3D8] := mem[$40:$65;
  3.  
  4. port[$3D8] is the CGA display register.
  5.  
  6. code to wait for vertical retrace is:
  7.    while port[$3DA] and $08 = 0 do;
  8.